home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso / 1271 / wsc32.bas < prev    next >
Encoding:
BASIC Source File  |  1997-03-05  |  3.1 KB  |  103 lines
  1. Attribute VB_Name = "WSC4VB"
  2. '
  3. ' WSC4VB32.BAS
  4. '
  5.  Option Explicit
  6.  
  7.  DefLng A-Z
  8.  
  9. ' WSC functions
  10.  
  11.  Declare Function SioBaud Lib "WSC32.DLL" (ByVal Port, ByVal BaudCode)
  12.  Declare Function SioBrkSig Lib "WSC32.DLL" (ByVal Port, ByVal Cmd)
  13.  Declare Function SioCTS Lib "WSC32.DLL" (ByVal Port)
  14.  Declare Function SioDCD Lib "WSC32.DLL" (ByVal Port)
  15.  Declare Function SioDSR Lib "WSC32.DLL" (ByVal Port)
  16.  Declare Function SioDTR Lib "WSC32.DLL" (ByVal Port, ByVal Char)
  17.  Declare Function SioDone Lib "WSC32.DLL" (ByVal Port)
  18.  Declare Function SioFlow Lib "WSC32.DLL" (ByVal Port, ByVal Code)
  19.  Declare Function SioInfo Lib "WSC32.DLL" (ByVal Cmd)
  20.  Declare Function SioGetc Lib "WSC32.DLL" (ByVal Port)
  21.  Declare Function SioGets Lib "WSC32.DLL" (ByVal Port, ByVal Buffer As String, ByVal StringSize)
  22.  Declare Function SioParms Lib "WSC32.DLL" (ByVal Port, ByVal Code1, ByVal Code2, ByVal Code3)
  23.  Declare Function SioPutc Lib "WSC32.DLL" (ByVal Port, ByVal Char)
  24.  Declare Function SioPuts Lib "WSC32.DLL" (ByVal Port, ByVal Buffer As String, ByVal Size)
  25.  Declare Function SioRI Lib "WSC32.DLL" (ByVal Port)
  26.  Declare Function SioReset Lib "WSC32.DLL" (ByVal Port, ByVal RxQueSize, ByVal TxQueSize)
  27.  Declare Function SioRTS Lib "WSC32.DLL" (ByVal Port, ByVal Char)
  28.  Declare Function SioRxClear Lib "WSC32.DLL" (ByVal Port)
  29.  Declare Function SioRxQue Lib "WSC32.DLL" (ByVal Port)
  30.  Declare Function SioStatus Lib "WSC32.DLL" (ByVal Port, ByVal Mask)
  31.  Declare Function SioTxClear Lib "WSC32.DLL" (ByVal Port)
  32.  Declare Function SioTxQue Lib "WSC32.DLL" (ByVal Port)
  33.  Declare Function SioUnGetc Lib "WSC32.DLL" (ByVal Port, ByVal Char)
  34.  
  35. Rem COM port codes
  36.  
  37.  Global Const COM1 = 0
  38.  Global Const COM2 = 1
  39.  Global Const COM3 = 2
  40.  Global Const COM4 = 3
  41.  Global Const COM5 = 4
  42.  Global Const COM6 = 5
  43.  Global Const COM7 = 6
  44.  Global Const COM8 = 7
  45.  
  46. Rem Parity Codes
  47.  
  48. Global Const NoParity = 0
  49. Global Const OddParity = 1
  50. Global Const EvenParity = 2
  51. Global Const MarkParity = 3
  52. Global Const SpaceParity = 4
  53.  
  54. Rem Stop Bit Codes
  55.  
  56. Global Const OneStopBit = 0
  57. Global Const TwoStopBits = 2
  58.  
  59. Rem Word Length Codes
  60.  
  61. Global Const WordLength5 = 5
  62. Global Const WordLength6 = 6
  63. Global Const WordLength7 = 7
  64. Global Const WordLength8 = 8
  65.  
  66. Rem baud codes
  67.  
  68. Global Const Baud110 = 0
  69. Global Const Baud300 = 1
  70. Global Const Baud1200 = 2
  71. Global Const Baud2400 = 3
  72. Global Const Baud4800 = 4
  73. Global Const Baud9600 = 5
  74. Global Const Baud19200 = 6
  75. Global Const Baud38400 = 7
  76. Global Const Baud57600 = 8
  77. Global Const Baud115200 = 9
  78.  
  79. Rem SioGetError Masks
  80.  
  81. Global Const WSC_RXOVER = &H1
  82. Global Const WSC_OVERRUN = &H2
  83. Global Const WSC_PARITY = &H4
  84. Global Const WSC_FRAME = &H8
  85. Global Const WSC_BREAK = &H10
  86. Global Const WSC_TXFULL = &H100
  87.  
  88. Rem return codes
  89.  
  90. Global Const IE_BADID = -1
  91. Global Const IE_OPEN = -2
  92. Global Const IE_NOPEN = -3
  93. Global Const IE_MEMORY = -4
  94. Global Const IE_DEFAULT = -5
  95. Global Const IE_HARDWARE = -10
  96. Global Const IE_BYTESIZE = -11
  97. Global Const IE_BAUDRATE = -12
  98. Global Const WSC_NO_DATA = -100
  99. Global Const WSC_RANGE = -101
  100. Global Const WSC_ABORTED = -102
  101. Global Const WSC_WIN32ERR = -103
  102. Global Const WSC_EXPIRED = -104
  103.